home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 12 / 012.d81 / dosplus creator (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  68 lines
  1. 1 ifdis=0thendis=1:gosub60000
  2. 5 rem ******* dosplus creator *******
  3. 10 rem extra spaces added for clarity
  4. 20 if rwk then gosub 200:goto 70
  5. 30 poke 53280,6:print chr$(147):rw=34
  6. 40 print tab(2)"put the test/demo disk in the drive":gosub 180
  7. 50 print tab(82)"the old dos 5.1 is now loading....."
  8. 60 load"dos 5.1",8,1
  9. 70 print tab(82)"new dosplus data is now loading...."
  10. 80 for i=52000 to 52223:read a:poke i,a:ck=ck+a:next
  11. 90 for j=52278 to 52443:read b:poke j,b:ck=ck+b:next
  12. 100 for k=53080 to 53247:read c:poke k,c:ck=ck+c:next
  13. 110 poke 52570,32:poke 52571,106
  14. 120 if ck <> 58416 then print tab(87)"error in data statements":stop
  15. 130 gosub 200:print tab(82)"put disk to receive dosplus in drive":gosub 180
  16. 140 print tab(82)"now saving dosplus to disk.........."
  17. 150 poke 43,32:poke 44,203:poke 45,255:poke 46,207:save"dosplus",8,1
  18. 160 poke 43,1:poke 44,8:poke 45,3:poke 46,8:gosub 200
  19. 170 print tab(56)"done":for i=1 to 3000:next:print chr$(147):sys 52224:new
  20. 180 print tab(43) chr$(18) chr$(159)" press f3 when ready to continue "
  21. 190 get k$:if k$ <> chr$(134) then 190
  22. 200 print chr$(150):for i=1 to 20:print"* ";:next:print chr$(154);:return
  23. 500 data 201,42,240,4,76,82,204,52,32,204,255,169,8,170,160,15,32
  24. 505 data 186,255,169,2,162,123,160,203,32,189,255,32,192,255,160,16,162
  25. 510 data 251,32,179,238,232,208,250,200,208,245,162,8,32,198,255,160,3
  26. 515 data 32,207,255,136,208,250,169,13,32,210,255,32,207,255,201,44,240
  27. 520 data 6,32,210,255,76,94,203,169,20,32,210,255,169,8,32,195,255
  28. 525 data 32,204,255,76,228,207,85,74,187,187,187,169,139,160,203,141,10
  29. 530 data 3,140,11,3,96,169,0,133,13,32,115,0,201,36,240,10,201
  30. 535 data 37,240,65,32,121,0,76,141,174,32,209,203,32,115,0,144,11
  31. 540 data 201,65,144,31,201,71,176,27,56,233,7,56,233,48,72,165,97
  32. 545 data 240,7,24,105,4,176,14,133,97,104,240,222,32,126,189,76,163
  33. 550 data 203,76,121,0,76,126,185,169,0,162,10,149,93,202,16,251,96
  34. 555 data 32,209,203,32,115,0,201,50,176,230,201,48,144,226,233,48,72
  35. 560 data 165,97,240,4,230,97,240,218,104,240,231,32,126,189,76,222,203
  36. 565 data 0,187,187,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52
  37. 570 data 52,52,52,52,52,52,52,52,52,52,52,173,39,204,201,75,240
  38. 575 data 1,96,169,100,160,204,32,30,171,76,116,164,75,79,66,69,82,0
  39. 580 data 173,39,204,201,85,240,3,76,32,203,76,173,207,8,187,79,94
  40. 585 data 13,13,32,32,32,32,32,32,68,79,83,32,77,65,78,65,71
  41. 590 data 69,82,32,86,54,46,53,45,49,47,49,47,56,53,13,13,32
  42. 595 data 32,32,32,32,32,32,32,32,32,64,42,32,84,79,32,82,69
  43. 600 data 83,69,84,32,68,73,83,75,13,13,32,32,158,65,85,84,79
  44. 605 data 32,72,69,88,45,69,78,84,82,89,32,65,68,68,69,68,32
  45. 610 data 49,49,47,49,47,56,52,32,82,87,75,154
  46. 615 data 76,138,207,0,187,187,187,187,13,32,32,18,32,85,78,78,69
  47. 620 data 87,32,146,32,65,68,68,69,68,32,56,47,49,54,47,56,52
  48. 625 data 32,66,89,32,66,79,66,32,75,79,66,69,82,13,13,0,169
  49. 630 data 96,160,207,32,30,171,169,64,141,119,2,169,36,141,120,2,169
  50. 635 data 157,141,121,2,169,157,141,122,2,169,4,133,198,76,128,203,187
  51. 640 data 160,3,200,177,43,208,251,200,200,152,160,0,145,43,165,44,200
  52. 645 data 145,43,133,60,160,0,132,59,162,0,200,208,2,230,60,177,59
  53. 650 data 208,245,232,224,3,208,242,200,208,2,230,60,132,45,164,60,132
  54. 655 data 46,76,131,164,173,134,2,72,173,33,208,141,134,2,169,252,160
  55. 660 data 207,32,30,171,104,141,134,2,32,116,164,82,87,75,0
  56. 60000 t$="                         ":c=0:c$="":print"[147]":poke53281,0
  57. 60030 printspc(7)""t$:printspc(7)"     [196]os[208]lus [195]reator     [146]"
  58. 60051 printspc(7)""t$:print:printtab(18)"by"
  59. 60060 print:printspc(14)"[210].[215]. [203]ober"
  60. 60070 print:printspc(12)"[195]opyright 1985"
  61. 60080 print:print:print:print"     [204][207][193][196][211][212][193][210] is not public domain."
  62. 60090 print:print"  [208]lease respect the author's rights."
  63. 60100 print:print"      [208]ress space bar to continue."
  64. 60110 forcc=1to48:getk$:ifk$=" "then60130
  65. 60120 ifcc=1thenprintmid$(c$,c+2,1)"[145][145]";:c=not(c)
  66. 60125 next:goto60100
  67. 60130 printc$:return
  68.